home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00148_Script_148 < prev    next >
Text File  |  1999-03-07  |  559b  |  23 lines
  1. -- fix chartnames
  2. on underscoretospace nametofix
  3.   set ilx = length(nametofix)
  4.   set outname = ""
  5.   repeat with ilp = 1 to ilx
  6.     set ichar = char ilp of nametofix
  7.     if ichar = "_" then set ichar = "-"
  8.     set outname = outname & ichar
  9.   end repeat
  10.   return ( outname )
  11. end
  12.  
  13. on spacetounderscore nametofix
  14.   set ilx = length(nametofix)
  15.   set outname = ""
  16.   repeat with ilp = 1 to ilx
  17.     set ichar = char ilp of nametofix
  18.     if ichar = "-" then set ichar = "_"
  19.     set outname = outname & ichar
  20.   end repeat
  21.   return ( outname )
  22. end
  23.